home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / spssMode.tcl < prev    next >
Encoding:
Text File  |  2001-01-26  |  60.3 KB  |  1,779 lines
  1. ## -*-Tcl-*-  (nowrap)
  2.  # ==========================================================================
  3.  #  Statistical Modes - an extension package for Alpha
  4.  # 
  5.  #  FILE: "spssMode.tcl"
  6.  #                                    created: 01/15/00 {07:15:32 pm} 
  7.  #                                last update: 01/26/01 {12:21:56 pm} 
  8.  #  Description: 
  9.  #                                
  10.  #  For SPSS syntax files.
  11.  # 
  12.  #  Author: Craig Barton Upright
  13.  #  E-mail: <cupright@princeton.edu>
  14.  #    mail: Princeton University,  Department of Sociology
  15.  #          Princeton, New Jersey  08544
  16.  #     www: <http://www.princeton.edu/~cupright>
  17.  #  
  18.  # -------------------------------------------------------------------
  19.  #  
  20.  # Copyright (c) 2000-2001  Craig Barton Upright
  21.  # 
  22.  # This program is free software; you can redistribute it and/or modify
  23.  # it under the terms of the GNU General Public License as published by
  24.  # the Free Software Foundation; either version 2 of the License, or
  25.  # (at your option) any later version.
  26.  # 
  27.  # This program is distributed in the hope that it will be useful,
  28.  # but WITHOUT ANY WARRANTY; without even the implied warranty of
  29.  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30.  # GNU General Public License for more details.
  31.  # 
  32.  # You should have received a copy of the GNU General Public License
  33.  # along with this program; if not, write to the Free Software
  34.  # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  35.  # 
  36.  # ==========================================================================
  37.  ##
  38.  
  39. # ===========================================================================
  40. #
  41. # ◊◊◊◊ Initialization of SPSS mode ◊◊◊◊ #
  42. # 
  43.  
  44. alpha::mode SPSS 2.1.1 spssMenu {*.sps *.spss *.spp} {
  45.     spssMenu electricReturn electricTab electricBraces
  46. } {
  47.     # We require 7.4b21 for prefs handling.
  48.     alpha::package require -loose AlphaTcl 7.4b21
  49.     addMenu spssMenu "SPSS" SPSS
  50.     set unixMode(spss) {SPSS}
  51.     set modeCreator(SPSS) {SPSS}
  52. } uninstall {
  53.     this-file
  54. } help {
  55.     file "Statistical Modes Help"
  56. } maintainer {
  57.     "Craig Barton Upright" <cupright@princeton.edu> 
  58.     <http://www.princeton.edu/~cupright/>
  59. }
  60.  
  61. hook::register quitHook SPSS::quitHook
  62.  
  63. proc spssMenu {} {}
  64.  
  65. proc spssMode.tcl {} {}
  66.  
  67. namespace eval SPSS {}
  68.  
  69. # ===========================================================================
  70. #
  71. # ◊◊◊◊ Setting SPSS mode variables ◊◊◊◊ #
  72. #
  73.  
  74. # Removing obsolete preferences from earlier versions.
  75.  
  76. set oldvars {
  77.     addArguments addSymbols argumentColor don'tRemindMe electricTab
  78.     functionColor keywordColor spssHelp
  79. }
  80.  
  81. foreach oldvar $oldvars {prefs::removeObsolete SPSSmodeVars($oldvar)}
  82.  
  83. unset oldvar oldvars
  84.  
  85. # ===========================================================================
  86. #
  87. # Standard preferences recognized by various Alpha procs
  88. #
  89.  
  90. newPref var  fillColumn        {75}                SPSS
  91. newPref var  leftFillColumn    {0}                 SPSS
  92. newPref var  prefixString      {* }                SPSS
  93. newPref var  wordBreak         {[-a-zA-Z0-9\.]+}   SPSS
  94. newPref var  wordBreakPreface  {[^-a-zA-Z0-9\.]}   SPSS
  95. newPref flag wordWrap          {0}                 SPSS
  96.  
  97. # ===========================================================================
  98. #
  99. # Flag preferences
  100. #
  101.  
  102. # ===========================================================================
  103. #
  104. # Preferences to allow user to include additional commands, arguments, and
  105. # symbols through the Mode Preferences dialog.
  106. # 
  107.  
  108. newPref flag autoMark           {0}     SPSS    {SPSS::rebuildMenu spssMenu}
  109.  
  110. # Indent all continued commands, indicated by the lack of a period at
  111. # the end of a line, by the full indentation amount rather than half.
  112. newPref flag fullIndent         {1}     SPSS    {SPSS::rebuildMenu spssMenu}
  113.  
  114. # By default command double-click will send a command to on-line help, and
  115. # option double-click sends a command to the local SPSS application. 
  116. # Check this box to switch these key combinations.
  117. newPref flag localHelp          {0}     SPSS    {SPSS::rebuildMenu spssHelp}
  118.  
  119. # Check this box if your keyboard does not have a "Help" key.  This will
  120. # change some of the menu's key bindings.
  121. newPref flag noHelpKey          {0}     SPSS    {SPSS::rebuildMenu spssHelp}
  122.  
  123. # Set the list of flag preferences which can be changed in the menu.
  124.  
  125. set SPSSPrefsInMenu [list   \
  126.   "localHelp"               \
  127.   "noHelpKey"               \
  128.   "fullIndent"              \
  129.   ]
  130.  
  131. # ===========================================================================
  132. #
  133. # Variable preferences
  134. # 
  135.  
  136. # Enter additional SPSS keywords to be colorized.  These will also be
  137. # included in electric completions.
  138. newPref var addCommands         {}      SPSS    {SPSS::colorizeSPSS}
  139.  
  140. # Select the statistical application to be used.
  141. newPref var application         {SPSS}  SPSS    {SPSS::rebuildMenu spssMenu} [list PSPP SPSS]
  142.  
  143. # The "PSPP Home Page" menu item will send this url to your browser.
  144. newPref url psppHomePage        {http://www.gnu.org/software/pspp/}     SPSS
  145.  
  146. # Click on "Set" to find the local PSPP application.
  147. newPref sig psppSig             {}      SPSS
  148.  
  149. # Command double-clicking on an SPSS keyword will send it to this url
  150. # for a help reference page.
  151. newPref url helpUrl {http://www.gnu.org/cgi-bin/htsearch?words=pspp%2C+} SPSS
  152.     
  153. # The "SPSS Home Page" menu item will send this url to your browser.
  154. newPref url spssHomePage        {http://www.spss.com/}  SPSS
  155.  
  156. # Click on "Set" to find the local SPSS application.
  157. newPref sig spssSig             {SPSS}  SPSS
  158.  
  159. # ===========================================================================
  160. #
  161. # Color preferences
  162. #
  163. # Nomenclature notes:
  164. # 
  165. # SPSS does a lousy job of naming things, or at least is more than willing
  166. # to give a keyword (as in SPSS keyword) the same name as a function,
  167. # statement, subcommand or command.  There's little point in trying to
  168. # distinguish amongst all of this with different colors, because it just
  169. # won't work.  Instead, I'm just putting them all in one list, calling them
  170. # all "commands" and reminiscing about the days when S-Plus was my stats
  171. # package of choice.  The nomenclature of SPSS is only one of its several
  172. # limitations.
  173. #
  174.  
  175. # See the Statistical Modes Help file for an explanation of these different
  176. # categories, and lists of keywords.
  177. newPref color commandColor      {blue}   SPSS    {SPSS::colorizeSPSS}
  178. newPref color commentColor      {red}    SPSS    {stringColorProc}
  179. newPref color operatorColor     {blue}   SPSS    {SPSS::colorizeSPSS}
  180. newPref color stringColor       {green}  SPSS    {stringColorProc}
  181.  
  182. # The color of symbols such as +, -, /,  etc.
  183. newPref color symbolColor      {magenta} SPSS    {SPSS::colorizeSPSS}
  184.  
  185. regModeKeywords -e {*} -b {/*} {*/}         \
  186.   -c $SPSSmodeVars(commentColor)            \
  187.   -s $SPSSmodeVars(stringColor) SPSS {}
  188.  
  189. # ===========================================================================
  190. # 
  191. # Flag Flip
  192. # 
  193. # Called by menu items, change the value of flag preferences.
  194. # 
  195.  
  196. proc SPSS::flagFlip {pref} {
  197.  
  198.     global mode SPSSmodeVars
  199.  
  200.     set SPSSmodeVars($pref) [expr {$SPSSmodeVars($pref) ? 0 : 1}]
  201.     set oldMode $mode
  202.     set mode "SPSS"
  203.     synchroniseModeVar $pref $SPSSmodeVars($pref)
  204.     set mode $oldMode
  205.     if {$SPSSmodeVars($pref)} {
  206.         set end "on"
  207.     } else {
  208.         set end "off"
  209.     }
  210.     message "The \"$pref\" preference is now $end."
  211. }
  212.  
  213. # ===========================================================================
  214. # 
  215. # Comment Character variables for Comment Line / Paragraph / Box menu items.
  216. # 
  217.  
  218. set SPSS::commentCharacters(General)    [list "* "]
  219. set SPSS::commentCharacters(Paragraph)  [list "** " " **" " * "]
  220. set SPSS::commentCharacters(Box)        [list "*" 1 "*" 1 "*" 3]
  221.  
  222. # ===========================================================================
  223. #
  224. # ◊◊◊◊ Keyword Dictionaries ◊◊◊◊ #
  225. #
  226.  
  227. # Making sure that SPSSUserCommands exists.
  228. # This will be over-ridden if it is loaded from a ${mode}Prefs.tcl file.
  229. #
  230.  
  231. set SPSSUserCommands    ""
  232.  
  233. # ===========================================================================
  234. #
  235. # ◊◊◊◊   SPSS Commands   ◊◊◊◊ #
  236. #
  237.  
  238. set SPSSCommands {
  239.     a absolute add adevice adjred afreq after aggregate aic ainds align
  240.     alpha alsal analysis anova append approximate ar area ascii asresid
  241.     association automatic autorecode avalue average averf avonly awymmetic
  242.     backward badcorr barchart bart base basis baverage bcon bcov begin
  243.     beuclid binomial blank blanks blksize blwmn bmdp bmpd boick bootstrap
  244.     both boundary box boxm brau break breakdown brief brkspace bseuclid
  245.     bshape bstep btukey buffno calculate call categorical case casenum
  246.     cases cc cdfnorm cellinfo cells center centroid cfvar cha chalign
  247.     charend chdpace chebychev chicdf chisq chol choropleth ci cinterval
  248.     ckder clabels classify classplot clear clnr cluster cmax cmin cnames
  249.     cnlr cochran code colconf collect collin collinearity colspace column
  250.     columnwise combined comm comment compare complete compositional
  251.     compressed compression compute concat condense condensed condition
  252.     conditional config constrained content contents continued contour
  253.     contrast convert cook copy cor corff corr correlations cosine count cov
  254.     covariances covariates cpi criteria crossbreak crosstabs crshtol cssq
  255.     csum ctime.days ctime.hours ctime.minures cufreq cupct curpoints cusum
  256.     cutoff cweight d data date.dmy date.mdy date.moyr date.qur date.wkyr
  257.     date.yrday default define delta dendrogram density dependent
  258.     derivatives desc descending descending descriptives design det dev
  259.     deviation dfbeta dfe dfreq diag diagonal dice dictionary difference
  260.     digits dimenrdimens directions discrim discriminant disper display
  261.     distance divide document documents doend dollar double down draw dresid
  262.     drop dummy duncan duplicate durbin dvalue ebcdid econverge edit effects
  263.     efsize eigen eject else enclose end enter eof eps equamax error errors
  264.     estim eta euclid eval every exact examine exclude execute expected
  265.     experimental export external extraction f facilities factor fgtmlr
  266.     fieldnames file files fin fin finish first first fixed flip flt fnames
  267.     footnote for formats fortran forward fout fpair fprecision freq
  268.     frequencies friedman from frspace fscore fstep ftolerance full
  269.     functions gamma gcmdfile gcov gdata gdevice gemscal get gg ginv gls
  270.     gmemory graph great gresid grouped groups groups groupwise gsch guttman
  271.     hamann handle harmonic hazard hbar head header helmert help hf hicicle
  272.     hierarchical higher highest hiloglinear histogram history hold
  273.     homogeneity horizontal host hotelling hsize hypoth id ident if image
  274.     import in include increment indicator individual indscal info initial
  275.     inline input input intermed interval intervals into inv istep iter
  276.     iterate jaccard jdate joint journal k-s k-w k1 k2 kaiser kappa keep
  277.     kendall key keyed kmo kroneker kurtosis label labels lag lambda last
  278.     lcon least leave left length let level lever lftolerance limit line
  279.     linearity list listing listwise log logistic logit loglinear logsurv
  280.     loop loss lower lowest lpad lpi lresid lsd lstolerance ltrim m-wm
  281.     macros magic mahal make manova manual map match matrix maxorders
  282.     maxsteps mconvert mde mean means merge mestimates method missing mixed
  283.     mode model more moses mprint mrgroup msave mssq msum mult multiple
  284.     multiply multipunch multiv multivariate muplus mwithin mxerrs mxloops
  285.     mxwarns n n_matrix n_scalar n_vector name names naname nanames natres
  286.     navallabs ncol ncomp negative nested new newnames newnames newpage
  287.     nftolerance ngt nin nlr nlr nmiss no nobox nocatlabs nodiagonal noend
  288.     noexpand noindex noinitial nokaiser nolabels nolist nominal none
  289.     nonmissing nonpar noorigin noprint normal normplot normprob norotate
  290.     nosig nostep notable noulb noupdate novalues nowarn npar nrow ntiles nu
  291.     null nulline number numbered numeric numiss nvalid oblimin occurs
  292.     ochaiai of off offexpand offset omeans onepage onetail oneway oneway
  293.     oneway onexpand optimal options optolerance ordered ordinal origin
  294.     orthonorm osiris other out outfile outliers output outs overlay
  295.     overview p pa1 pa2 paf page paired pairs pairwise parall parallel
  296.     parameters partial partialplot partition pattern pc pcomps pcon pct
  297.     pearson percent percentiles pgroup pgt ph2 phi pie pin pin plain plot
  298.     plt pmeans point polynomial pool pooled positional pout power pred
  299.     preserve presorted previous print printback priors prism probit
  300.     procedure procedures proportion prox proximities ptile pyramid q
  301.     quartiles quartimax quick quick quick quote r radial range ranges rank
  302.     ration raw rcon rconverge recode rectangular reduncancy reformat reg
  303.     regression regwgt release reliability remove rename repeat repeating
  304.     replace report reread rescale reshape resid residual residuals response
  305.     responses restore results reverse rfraction rfraction right rindex risk
  306.     rlabels rmax rmin rmp rnames rnkorder rotate rotation row rowconf rows
  307.     rpad rr rssq rsum rt rtrim runs sample sas saslib savage save scale
  308.     scan scatterplot schedule scheffe scompression scratch scss sd sdresid
  309.     seed sekurt select semean separate serdiag serial ses seskew set
  310.     seuclid shape show sig sign signif significance simple since single
  311.     singledf size skewness skip sm snames snk solve sort space space
  312.     spearman special split spread spred spss sresid sscon sscp sstype
  313.     stacked stan standardize starts statistics status stddev step stepdown
  314.     steplimit stepwise stimwght stressmin strictparallel string strings
  315.     substr substring subtitle subtract sum summary sumspace survival sval
  316.     svd sweep symbols symmetric sysmix t t-test table tables tail tape tb1
  317.     tb2 tbfonts tcdf tcov temporary terminal test tests then ties tiestore
  318.     time time.days time.hms title tokens tolerance total transformations
  319.     translate tspace tukey twotail type type uc uls unclassified
  320.     uncompressed unconditional undefined underscore uniform unique univ
  321.     univariate univf unnumbered unquote unselected up upcase update validn
  322.     value values var variable variables variance varimax vars vector
  323.     vertical vicile view vin vs vsize w-w ward warn waverage weight width
  324.     wilcoxon wild workfile write wsdesign wsfactors xdate.date xdate.hour
  325.     xdate.jday xdate.mday xdate.minute xdate.month xdate.quarter
  326.     xdate.second xdate.tday xdate.time xdate.week xdate.wkday xdate.year
  327.     xmdend xprod xsave xsort xtx y yes yrmoda z z zcorr zpp zpred zresid
  328. }
  329.  
  330. # ===========================================================================
  331. #
  332. # ◊◊◊◊   SPSS Functions   ◊◊◊◊ #
  333. #
  334.  
  335. set SPSSFunctions {
  336.     abs arsin artan cos exp lg10 ln mod rnd sin sqrt trunc
  337. }
  338.  
  339.     
  340. # ===========================================================================
  341. #
  342. # ◊◊◊◊   SPSS Operators   ◊◊◊◊ #
  343. #
  344.  
  345. set SPSSOperators {
  346.     all and by eq ge gt into le lt ne not or .por .sav .sps thru to with
  347.     xls
  348. }
  349.  
  350. # ===========================================================================
  351. # 
  352. # Colorize SPSS.
  353. # 
  354. # Set all keyword lists, and colorize.
  355. # 
  356. # Could also be called in a <mode>Prefs.tcl file
  357. # 
  358.  
  359. proc SPSS::colorizeSPSS {{pref ""}} {
  360.     
  361.     global SPSSmodeVars SPSSCommands SPSSFunctions SPSSOperators SPSSUserCommands 
  362.     
  363.     global SPSSlowerCaseCommands SPSSupperCaseCommands
  364.     global SPSSlowerCaseFunctions SPSSupperCaseFunctions
  365.     global SPSSlowerCaseCmds SPSScmds
  366.     
  367.     # Create the list of all keywords for completions.  SPSS keywords
  368.     # are not case-sensitive.  To allow for different user styles,
  369.     # we'll include lower case commands as well as ALL CAPS.
  370.     message "Creating ALL CAP commands for SPSS mode …"
  371.     # Commands only
  372.     set SPSSlowerCaseCommands [concat \
  373.       $SPSSCommands $SPSSmodeVars(addCommands) $SPSSUserCommands \
  374.       ]
  375.     set SPSSupperCaseCommands [string toupper $SPSSlowerCaseCommands]
  376.     # Functions only
  377.     set SPSSlowerCaseFunctions  $SPSSFunctions
  378.     set SPSSupperCaseFunctions [string toupper $SPSSlowerCaseFunctions]
  379.     
  380.     set SPSSlowerCaseCmds [lsort [lunique [concat \
  381.       $SPSSlowerCaseCommands $SPSSlowerCaseFunctions \
  382.       ]]]
  383.  
  384.     # SPSScmds
  385.     set SPSScmds [lsort [lunique [concat \
  386.       $SPSSlowerCaseCommands $SPSSupperCaseCommands $SPSSlowerCaseFunctions \
  387.       $SPSSupperCaseFunctions \
  388.       ]]]
  389.     message ""
  390.  
  391.     # Commands
  392.     regModeKeywords -a -k $SPSSmodeVars(commandColor) SPSS $SPSScmds
  393.     
  394.     # Operators
  395.     regModeKeywords -a                                                  \
  396.       -k $SPSSmodeVars(operatorColor) SPSS $SPSSOperators
  397.  
  398.     # Symbols
  399.     regModeKeywords -a                                                  \
  400.       -k $SPSSmodeVars(symbolColor) SPSS {|}                            \
  401.       -i "+" -i "-" -i "_" -i "\\"                                      \
  402.       -I $SPSSmodeVars(symbolColor)
  403.  
  404.     if {$pref != ""} {refresh}
  405. }
  406.  
  407. # Call this now.
  408.  
  409. SPSS::colorizeSPSS
  410.  
  411. # ===========================================================================
  412. #
  413. # Reload Completions.  
  414. # 
  415. # This is now an obsolete proc.
  416. # 
  417.  
  418. proc SPSS::reloadCompletions {} {
  419.     alertnote "\"SPSS::reloadCompletions\" is an obsolete proc.\
  420.       It should be removed from your SPSSPrefs.tcl file."
  421. }
  422.  
  423. # ===========================================================================
  424. #
  425. # ◊◊◊◊ Key Bindings, Electrics ◊◊◊◊ #
  426. #
  427.  
  428. # Known bug: Key-bindings from other global menus might conflict with those
  429. # defined in the SPSS menu.  This will help ensure that this doesn't happen.
  430.  
  431. Bind 'n'    <sz>    {SPSS::nextCommand} SPSS
  432. Bind 'p'    <sz>    {SPSS::prevCommand} SPSS
  433. Bind 's'    <sz>    {SPSS::selectCommand} SPSS
  434. Bind 'c'    <sz>    {SPSS::copyCommand} SPSS
  435.  
  436. Bind 'i'    <cz>    {SPSS::reformatCommand} SPSS
  437.  
  438. Bind '\)'           {SPSS::electricRight "\)"} SPSS
  439.  
  440. # For those that would rather use arrow keys to navigate:
  441.  
  442. Bind    up  <sz>    {SPSS::prevCommand 0 0} SPSS
  443. Bind  left  <sz>    {SPSS::prevCommand 0 1} SPSS
  444. Bind  down  <sz>    {SPSS::nextCommand 0 0} SPSS
  445. Bind right  <sz>    {SPSS::nextCommand 0 1} SPSS
  446.  
  447. # ===========================================================================
  448. # 
  449. # SPSS Carriage Return
  450. # 
  451. # Inserts a carriage return, and indents properly.
  452. # 
  453.  
  454. proc SPSS::carriageReturn {} {
  455.     
  456.     global SPSSmodeVars
  457.     
  458.     if {[isSelection]} {
  459.         deleteSelection
  460.     } 
  461.     set pos1 [lineStart [getPos]]
  462.     set pos2 [getPos]
  463.     if {[regexp {^([\t ])*(\}|\))} [getText $pos1 $pos2]]} {
  464.         createTMark temp $pos2
  465.         catch {bind::IndentLine}
  466.         gotoTMark temp ; removeTMark temp
  467.     } 
  468.     insertText "\r"
  469.     catch {bind::IndentLine}
  470. }
  471.  
  472. # ===========================================================================
  473. #
  474. # SPSS Electric Left, Right
  475. # 
  476. # Adapted from "tclMode.tcl"
  477. # 
  478.  
  479. proc SPSS::electricLeft {} {
  480.     
  481.     if {[literalChar]} {
  482.         typeText "\{"
  483.         return
  484.     }
  485.     set pat "\}\[ \t\r\n\]*(else(if)?)\[ \t\r\n\]*\$"
  486.     set pos [getPos]
  487.     if { [set result [findPatJustBefore "\}" $pat $pos word]] == "" } { 
  488.         insertText "\{"
  489.         return
  490.     }
  491.     # we have an if/else(if)/else
  492.     switch -- $word {
  493.         "else" {
  494.             deleteText [lindex $result 0] $pos
  495.             elec::Insertion "\} $word \{\r\t••\r\}\r••"
  496.         }
  497.         "elseif" {
  498.             deleteText [lindex $result 0] $pos
  499.             elec::Insertion "\} $word \{••\} \{\r\t••\r\}\r••"
  500.         }
  501.     }
  502. }
  503.  
  504. proc SPSS::electricRight {{char "\}"}} {
  505.     
  506.     if {[literalChar]} {
  507.         typeText $char
  508.         return
  509.     }
  510.     set pos [getPos]
  511.     typeText $char
  512.     if {![regexp {[^ \t]} [getText [lineStart $pos] $pos]]} {
  513.         set pos [lineStart $pos]
  514.         createTMark temp [getPos]
  515.         catch {bind::IndentLine}
  516.         gotoTMark temp ; removeTMark temp
  517.         bind::CarriageReturn
  518.     } 
  519.     if {[catch {blink [matchIt $char [pos::math $pos - 1]]}]} {
  520.         beep ; message "No matching $char !!"
  521.     } 
  522. }
  523.  
  524. # ===========================================================================
  525. #
  526. # ◊◊◊◊ Indentation ◊◊◊◊ #
  527. # 
  528. # SPSS::correctIndentation is necessary for Smart Paste, and returns the
  529. # correct level of indentation for the current line.  SPSS::indentLine uses
  530. # this level to indent the current line.
  531. # 
  532. # We have two level of indentation in SPSS, for the continuation of
  533. # commands, in which case we simply indent to the amount of the SPSS mode
  534. # variable indentationAmount, and for nested braces.
  535. # 
  536. # In SPSS::correctIndentation, we grab the previous non-commented line,
  537. # remove all of the characters besides braces and quotes, and then convert
  538. # it all to a list to be evaluated.  Braces contained within quotes, as
  539. # well as literal characters, should all be ignored and the remaining
  540. # braces are used to determine the correct level of nesting.
  541. # 
  542.  
  543. proc SPSS::indentLine {{pos ""}} {
  544.     
  545.     if {$pos == ""} {set pos [getPos]} 
  546.     # Get details of current line.
  547.     set posBeg [lineStart [getPos]]
  548.     set text [getText $posBeg [nextLineStart $posBeg]]
  549.     regexp {^[ \t]*} $text white 
  550.     set posNext1 [pos::math $posBeg + [string length $white]]
  551.     set posNext2 [pos::math $posNext1 + 1]
  552.     if {[pos::compare $posNext2 > [maxPos]]} {
  553.         set posNext2 [maxPos]
  554.     } 
  555.     # Determine the correct level of indentation for this line, given the
  556.     # next character.
  557.     set lwhite [SPSS::correctIndentation $pos [getText $posNext1 $posNext2]]
  558.     set lwhite [text::indentOf $lwhite]
  559.     if {$white != $lwhite} {
  560.         replaceText $posBeg $posNext1 $lwhite
  561.     }
  562.     goto [pos::math $posBeg + [string length $lwhite]]
  563. }
  564.  
  565. proc SPSS::correctIndentation {pos {next ""}} {
  566.     
  567.     global mode indent_amounts SPSSmodeVars
  568.     
  569.     if {$mode == "SPSS"} {
  570.         set continueIndent [expr {$SPSSmodeVars(fullIndent) + 1}]
  571.     } else {
  572.         set continueIndent 2
  573.     } 
  574.  
  575.     set posBeg   [lineStart $pos]
  576.     # Get information about this line, previous line ...
  577.     set thisLine  [SPSS::getCommandLine $posBeg 1 1]
  578.     set prevLine1 [SPSS::getCommandLine [pos::math $posBeg - 1] 0 1]
  579.     set prevLine2 [SPSS::getCommandLine [pos::math [lindex $prevLine1 0] - 1] 0 1]
  580.     set lwhite    [lindex $prevLine1 1]
  581.     # If we have a previous line ...
  582.     if {[pos::compare [lindex $prevLine1 0] != $posBeg]} {
  583.         set pL1 [string trim [lindex $prevLine1 2]]
  584.         # Indent if the last line did not terminate the command.
  585.         if {![regexp {\.([\t ]?)$} $pL1]} {
  586.             incr lwhite $indent_amounts($continueIndent)
  587.         } 
  588.         # Check to make sure that the previous command was not itself a
  589.         # continuation of the line before it.
  590.         if {[pos::compare [lindex $prevLine1 0] != [lindex $prevLine2 0]]} {
  591.             set pL2 [string trim [lindex $prevLine2 2]]
  592.             if {![regexp {\.([\t ]?)$} $pL2]} {
  593.                 incr lwhite $indent_amounts(-$continueIndent)
  594.             } 
  595.         }
  596.         # Find out if there are any unbalanced {,},(,) in the last line.
  597.         regsub -all {[^ \{\}\(\)\"\*\/\\]} $pL1 { } line
  598.         # Remove all literals.
  599.         regsub -all {\\\{|\\\}|\\\(|\\\)|\\\"|\\\*|\\\/} $line { } line
  600.         regsub -all {\\} $line { } line
  601.         # Remove everything surrounded by quotes.
  602.         regsub -all {\"([^\"]+)\"} $line { } line
  603.         regsub -all {\"} $line { } line
  604.         # Remove everything surrounded by bracketed comments.
  605.         regsub -all {/\*([^\*/]+)\*/} $line { } line
  606.         # Now turn all braces into 2's and -2's
  607.         regsub -all {\{|\(} $line { 2 }  line
  608.         regsub -all {\}|\)} $line { -2 } line
  609.         # This list should now only contain 2's and -2's.
  610.         foreach i $line {
  611.             if {$i == "2" || $i == "-2"} {incr lwhite $indent_amounts($i)} 
  612.         }
  613.         # Did the last line start with a lone \) or \} ?  If so, we want to
  614.         # keep the indent, and not make call it an unbalanced line.
  615.         if {[regexp {^[\t ]*(\}|\))} $pL1]} {
  616.             incr lwhite $indent_amounts(2)
  617.         } 
  618.     } 
  619.     # If we have a current line ...
  620.     if {[pos::compare [lindex $thisLine 0] == $posBeg]} {
  621.         # Reduce the indent if the first non-whitespace character of this
  622.         # line is ) or \}.
  623.         set tL [lindex $thisLine 2]
  624.         if {$next == "\}" || $next == ")" || [regexp {^[\t ]*(\}|\))} $tL]} {
  625.             incr lwhite $indent_amounts(-2)
  626.         } 
  627.     } 
  628.     # Now we return the level to the calling proc.
  629.     return [expr {$lwhite > 0 ? $lwhite : 0}]
  630. }
  631.  
  632. # ===========================================================================
  633. # 
  634. # Get Command Line
  635. # 
  636. # Find the next/prev command line relative to a given position, and return
  637. # the position in which it starts, its indentation, and the complete text
  638. # of the command line.  If the search for the next/prev command fails,
  639. # return an indentation level of 0.
  640. # 
  641. # We have the luxury here of ignore any previous/next commented lines.
  642. # 
  643.  
  644. proc SPSS::getCommandLine {pos {direction 1} {ignoreComments 1}} {
  645.     
  646.     if {$ignoreComments} {
  647.         set pat {^[\t ]*[^\t\r\n\*/ ]}
  648.     } else {
  649.         set pat {^[\t ]*[^\t\r\n ]}
  650.     } 
  651.     set posBeg [pos::math [lineStart $pos] - 1]
  652.     if {[pos::compare $posBeg < [minPos]]} {
  653.         set posBeg [minPos]
  654.     } 
  655.     set lwhite 0
  656.     if {![catch {search -f $direction -r 1 $pat $pos} match]} {
  657.         set posBeg [lindex $match 0]
  658.         set lwhite [posX [pos::math [lindex $match 1] - 1]]
  659.     }
  660.     set posEnd [pos::math [nextLineStart $posBeg] - 1]
  661.     if {[pos::compare $posEnd > [maxPos]]} {
  662.         set posEnd [maxPos]
  663.     } 
  664.     return [list $posBeg $lwhite [getText $posBeg $posEnd]]
  665. }
  666.  
  667. # ===========================================================================
  668. # 
  669. # ◊◊◊◊ Command Double Click ◊◊◊◊ #
  670. #
  671. # Checks to see if the highlighted word appears in any keyword list, and if
  672. # so, sends the selected word to the www.SPSS.com help site.
  673. # 
  674. # Control-Command double click will insert syntax information in status bar.
  675. # Shift-Command double click will insert commented syntax information in window.
  676. # 
  677. # (The above is not yet implemented -- need to enter all of the syntax info.)
  678. # 
  679.  
  680. proc SPSS::DblClick {from to shift option control} {
  681.     
  682.     global SPSSmodeVars SPSScmds SPSSSyntaxMessage
  683.         
  684.     select $from $to
  685.     set command [getSelect]
  686.     
  687.     if {[lsearch -exact $SPSScmds $command] == -1} {
  688.         message "\"$command\" is not defined as a SPSS system keyword."
  689.         return
  690.     }
  691.     # Any modifiers pressed?
  692.     if {$control} {
  693.         # CONTROL -- Just put syntax message in status bar window
  694.         if {[info exists SPSSSyntaxMessage($command)]} {
  695.             message "$SPSSSyntaxMessage($command)"
  696.         } else {
  697.             message "Sorry, no syntax information available for $command"
  698.         } 
  699.     } elseif {$shift} {
  700.         # SHIFT --Just insert syntax message as commented text
  701.         if {[info exists SPSSSyntaxMessage($command)]} {
  702.             endOfLine
  703.             insertText "\r"
  704.             insertText "$SPSSSyntaxMessage($command)"
  705.             comment::Line
  706.         } else {
  707.             message "Sorry, no syntax information available for $command"
  708.         } 
  709.     } elseif {$option && !$SPSSmodeVars(localHelp)} {
  710.         # Now we have four possibilities, based on "option" key and the
  711.         # preference for "local Help Only".  (Local Help Only actually
  712.         # switches the "normal" behavior of options versus not.)
  713.         # 
  714.         # OPTION, local help isn't checked -- Send command to local application
  715.         SPSS::localCommandHelp $command
  716.     } elseif {$option && $SPSSmodeVars(localHelp)} {
  717.         # OPTION, but local help is checked -- Send command for on-line help.
  718.         SPSS::wwwCommandHelp $command
  719.     } elseif {$SPSSmodeVars(localHelp)} {
  720.         # No modifiers, local help is checked -- Send command to local app.
  721.         SPSS::localCommandHelp $command
  722.     } else {
  723.         # No modifiers, no local help checked -- Send command for on-line
  724.         # help.  This is the "default" behavior.
  725.         SPSS::wwwCommandHelp $command
  726.     }
  727. }
  728.  
  729. # ===========================================================================
  730. # 
  731. # WWW Command Help
  732. # 
  733. # Send command to defined url, prompting for text if necessary.
  734. # 
  735.  
  736. proc SPSS::wwwCommandHelp {{command ""}} {
  737.     
  738.     global SPSSmodeVars
  739.     
  740.     if {$command == ""} {
  741.         set command [prompt "on-line SPSS/PSPP help for ... " [getSelect]] 
  742.         # set command [statusPrompt "on-line help for ... " ] 
  743.     } 
  744.     message "\"$command\" sent to $SPSSmodeVars(helpUrl)"
  745.     url::execute $SPSSmodeVars(helpUrl)$command
  746. }
  747.  
  748. # ===========================================================================
  749. # 
  750. # Local Command Help
  751. # 
  752. # Send command to local application, prompting for text if necessary.
  753. # 
  754.  
  755. proc SPSS::localCommandHelp {{command ""} {app ""}} {
  756.     
  757.     SPSS::betaMessage
  758.     
  759.     global SPSSmodeVars tcl_platform
  760.     
  761.     if {$app == ""} {
  762.         set app $SPSSmodeVars(application)
  763.     } 
  764.     if {$command == ""} {
  765.         set command [prompt "local $app application help for ... " [getSelect]]
  766.         # set command [statusPrompt "local S-Plus application help for ..." ]
  767.     }
  768.     set pf $tcl_platform(platform)
  769.  
  770.     if {$pf == "macintosh"} {
  771.         # Make sure that the Macintosh application for the signature exists.
  772.         if {[catch {[nameFromAppl [SPSS::sig $app]]}]} {
  773.             SPSS::selectApplication $app
  774.         } 
  775.     } elseif {$pf == "windows" || $pf == "unix"} {
  776.         # Make sure that the Windows application for the signature exists. 
  777.         # We assume that this will work for unix, too.
  778.         if {![file exists [SPSS::sig $app]]} {
  779.             SPSS::selectApplication $app
  780.         } 
  781.     }
  782.     # Now we look for the actual help file.
  783.     if {![file exists $helpFile]} {
  784.         beep ; message "Sorry, no help file for \"$command\" was found."
  785.         error "No help file found for \"$command\"."
  786.     } else {
  787.         help::openFile $helpFile 
  788.     } 
  789. }
  790.  
  791. # ===========================================================================
  792. #
  793. # ◊◊◊◊ Mark File and Parse Functions ◊◊◊◊ #
  794. #
  795.  
  796. # ===========================================================================
  797. #
  798. # SPSS Mark File
  799. # 
  800. # This will return the first 35 characters from the first non-commented
  801. # word that appears in column 0.  All other output files (those not
  802. # recognized) will take into account the additional left margin elements
  803. # added by SPSS/PSPP.
  804. #
  805.  
  806. proc SPSS::MarkFile {{type ""}} {
  807.     
  808.     removeAllMarks
  809.     
  810.     message "Marking File …"
  811.     
  812.     set pos [minPos]
  813.     set count 0
  814.     # Figure out what type of file this is -- source, frequency, or output.
  815.     # The variable "type" refers to a call from the SPSS menu.
  816.     # Otherwise we try to figure out the type based on the file's suffix.
  817.     if {$type == ""} {
  818.         if {[win::CurrentTail] == "* SPSS Mode Example *"} {
  819.             # Special case for Mode Examples, but only if called from
  820.             # Marks menu.  (Called from SPSS menu, "type" will over-ride.)
  821.             set type  ".sps"
  822.         } else {
  823.             set type [file extension [win::CurrentTail]]
  824.         }
  825.     }
  826.     # Set the mark expression.
  827.     if {$type == ".sps"} {
  828.         # Is this a source file?
  829.         set markExpr {^(\*\*\*[ ]|\*\*\*\*[ ])?[a-zA-Z]}
  830.     } elseif {$type == ".freq"} {
  831.         # Is this a frequencies file?  Determining what is truly a variable
  832.         # in SPSS output is not straightforward.  This regexp is a little
  833.         # particular, and might only apply to unix output.
  834.         set markExpr {^.+[\r\n]+[ ]+(Valid )}
  835.         catch {set pos [lindex [search -f 1 -m 0 -i 1 {freq} [minPos]] 0]}
  836.     } else {
  837.         # Assume that it's output.
  838.         set markExpr {^[ ]+[0-9]+(  )(0  )*(\*\*\*[ ]|\*\*\*\*[ ])?[a-zA-Z]}
  839.     }
  840.     # Now mark the file.
  841.     while {![catch {search -f 1 -r 1 -m 0 $markExpr $pos} match]} {
  842.         if {$type == ".freq"} {
  843.             set posBeg [lineStart [lindex $match 0]]
  844.             set posEnd [nextLineStart $posBeg]
  845.             set line   [string trimright [getText $posBeg $posEnd]]
  846.             regsub {[ ]+.+$} $line {} line
  847.             message "# of variables: [incr count]"
  848.         } else {
  849.             incr count
  850.             set posBeg [lindex $match 0]
  851.             set posEnd [nextLineStart $posBeg]
  852.             if {[pos::compare $posEnd > [maxPos]]} {set posEnd [maxPos]} 
  853.             set line [string trimright [getText $posBeg $posEnd]]
  854.             # Get rid of the leading "  [0-9]  " for output files
  855.             if {$type != ".sps"} {
  856.                 regsub {^[ ]+([0-9]*[0-9]*[0-9]*[0-9])} $line {} line
  857.                 regsub {^  0} $line {} line
  858.             }
  859.             # Get rid of braces.
  860.             regsub -all {\{|\[} $line {(} line
  861.             regsub -all {\}|\]} $line {)} line
  862.             # Add a little indentation so that section marks show up better
  863.             set line [string trimleft $line " "]
  864.             set line  "  $line"
  865.             if {[regsub {  \*\*\*\* } $line {* } line]} {
  866.                 incr count -1
  867.             } elseif {[regsub {  \*\*\* } $line {• } line]} {
  868.                 incr count -1
  869.             } 
  870.             if {[string length $line] > 35} {
  871.                 set line "[string range $line 0 35] ..."
  872.             } else {
  873.                 # Get rid of trailing sem-colons.
  874.                 set line  [string trimright $line ";" ]
  875.             }
  876.         }
  877.         # If the mark starts with "execute", ignore it.
  878.         if {![regexp {^  (execute|EXECUTE)} $line]} {
  879.             setNamedMark $line $posBeg $posBeg $posBeg
  880.         } 
  881.         set pos $posEnd
  882.     }
  883.     # Sorting the marks if this is a frequencies file.
  884.     # (Code lifted from "sortMarksFile", in "marks.tcl")
  885.     if {$type == ".freq"} {
  886.         message "Sorting marks …"
  887.         set mks {}
  888.         foreach mk [getNamedMarks] {
  889.             removeNamedMark -n [lindex $mk 0] -w [lindex $mk 1]
  890.             lappend mks $mk
  891.         }
  892.         foreach mk   [lsort $mks] {
  893.             set name [lindex $mk 0]
  894.             set disp [lindex $mk 2]
  895.             set pos  [lindex $mk 3]
  896.             set end  [lindex $mk 4]
  897.             
  898.             setNamedMark $name $disp $pos $end
  899.         }
  900.         message "This frequencies file describes $count variables."
  901.     } else {
  902.         message "This file contains $count commands."
  903.     } 
  904. }
  905.  
  906. # ===========================================================================
  907. #
  908. # SPSS Parse Functions
  909. # 
  910. # This will return only the SPSS command names.
  911. # 
  912.  
  913. proc SPSS::parseFuncs {} {
  914.     
  915.     global sortFuncsMenu    
  916.     
  917.     if {[file extension [win::CurrentTail]] == ".sps" } {
  918.         set funcExpr {^(\w+)}
  919.     } elseif {[file tail [win::Current]] == "* SPSS Mode Example *"} {
  920.         # Special case for Mode Examples folder
  921.         set funcExpr {^(\w+)}
  922.     } else {
  923.         # Assume that it's output.
  924.         set funcExpr {^([ ]+[0-9]+(  )(0  )*)([a-zA-Z]+[a-zA-Z])}
  925.     }
  926.     set pos [minPos]
  927.     set m {}
  928.     while {[set match [search -s -f 1 -r 1 -i 0 -n $funcExpr $pos]] != ""} {
  929.         if {[regexp -- $funcExpr [eval getText $match] "" "" "" "" word]} {
  930.             lappend m [list $word [lindex $match 0]]
  931.         }
  932.         set pos [lindex $match 1]
  933.     }
  934.     if {$sortFuncsMenu} {
  935.         regsub -all "\[\{\}\]" [lsort -ignore $m] "" m
  936.     } else {
  937.         regsub -all "\[\{\}\]" $m "" m
  938.     }   
  939.     return  $m
  940. }
  941.  
  942. # ===========================================================================
  943. # 
  944. # ◊◊◊◊ -------------------- ◊◊◊◊ #
  945. # 
  946. # ◊◊◊◊ SPSS Menu ◊◊◊◊ #
  947. # 
  948. # based upon the Stata menu, contributed by 
  949. # L. Phillip Schumm <pschumm@uchicago.edu>
  950. # 
  951.  
  952. # Tell Alpha what procedures to use to build all menus, submenus.
  953.  
  954. menu::buildProc spssMenu            SPSS::buildMenu
  955. menu::buildProc spssHelp            SPSS::buildHelpMenu
  956. menu::buildProc psppHelp            SPSS::buildHelpMenu
  957. menu::buildProc spssKeywords        SPSS::buildKeywordsMenu
  958. menu::buildProc markSpssFileAs…     SPSS::buildMarkMenu
  959. menu::buildProc markPsppFileAs…     SPSS::buildMarkMenu
  960.  
  961. # First build the main SPSS menu.
  962.  
  963. proc SPSS::buildMenu {} {
  964.     
  965.     global spssMenu SPSSmodeVars
  966.     
  967.     set app    [SPSS::menuAppName]
  968.     set lowApp [string tolower $app]
  969.     
  970.     set menuList [list                                  \
  971.       "${lowApp}HomePage"                               \
  972.       "/S<U<OswitchTo${app}"                            \
  973.       [list Menu -n ${lowApp}Help       -M SPSS {}]     \
  974.       "(-"                                              \
  975.       [list Menu -n spssKeywords        -M SPSS {}]     \
  976.       [list Menu -n mark${app}FileAs…   -M SPSS {}]     \
  977.       "(-"                                              \
  978.       "/P<U<OprocessFile"                               \
  979.       "/P<U<O<BprocessSelection"                        \
  980.       "(-"                                              \
  981.       "/I<U<OinsertPath"                                \
  982.       "(-"                                              \
  983.       "/N<U<BnextCommand"                               \
  984.       "/P<U<BprevCommand"                               \
  985.       "/S<U<BselectCommand"                             \
  986.       "/I<B<OreformatCommand"                           \
  987.       ]
  988.     set submenus [list mark${app}FileAs… ${lowApp}Help spssKeywords]
  989.     return       [list build $menuList SPSS::menuProc $submenus $spssMenu]
  990. }
  991.  
  992. # Manipulate the application's name for menu purposes.
  993.  
  994. proc SPSS::menuAppName {{app ""}} {
  995.     
  996.     global SPSSmodeVars
  997.     
  998.     if {$app == ""} {
  999.         set app [string toupper $SPSSmodeVars(application)]
  1000.     } 
  1001.     if {$app == "SPSS"} {
  1002.         return "Spss"
  1003.     } else {
  1004.         return "Pspp"
  1005.     } 
  1006. }
  1007.  
  1008. # Then build the "SPSS Help" submenu.
  1009.  
  1010. proc SPSS::buildHelpMenu {} {
  1011.     
  1012.     global SPSSmodeVars SPSSPrefsInMenu alpha::platform
  1013.     
  1014.     # Determine which key should be used for "Help", with F8 as option.
  1015.     
  1016.     if {!$SPSSmodeVars(noHelpKey)} {
  1017.         set key "/t"
  1018.     } else {
  1019.         set key "/l"
  1020.     } 
  1021.     
  1022.     # Reverse the local, www key bindings depending on the value of the
  1023.     # 'Local Help" variable.
  1024.     
  1025.     if {!$SPSSmodeVars(localHelp)} {
  1026.         set menuList [list                  \
  1027.           "${key}<OwwwCommandHelp…"         \
  1028.           "${key}<IlocalCommandHelp…"       \
  1029.           ]
  1030.     } else {
  1031.         set menuList [list                  \
  1032.           "${key}<OlocalCommandHelp…"       \
  1033.           "${key}<IwwwCommandHelp…"         \
  1034.           ]
  1035.     } 
  1036.     lappend menuList "(-"
  1037.     if {$SPSSmodeVars(application) == "SPSS"} {
  1038.         lappend menuList "pspp"
  1039.         lappend menuList "!•spss"
  1040.     } else {
  1041.         lappend menuList "!•pspp"
  1042.         lappend menuList "spss"
  1043.     }
  1044.     lappend menuList "(-"
  1045.     if {${alpha::platform} == "alpha"} {
  1046.         set prefix "!√"
  1047.     } else {
  1048.         set prefix "!•"
  1049.     } 
  1050.     foreach pref $SPSSPrefsInMenu {
  1051.         if {$SPSSmodeVars($pref)} {
  1052.             lappend menuList "${prefix}$pref"
  1053.         } else {
  1054.             lappend menuList "$pref"
  1055.         } 
  1056.     }
  1057.     lappend menuList "(-"
  1058.     lappend menuList "setPsppApplication"
  1059.     lappend menuList "setSpssApplication"
  1060.     lappend menuList "(-"
  1061.     lappend menuList "${key}<BspssModeHelp"
  1062.     
  1063.     return [list build $menuList SPSS::helpProc {}]
  1064. }
  1065.  
  1066. # Then build the "SPSS Mode Keywords" submenu.
  1067.  
  1068. proc SPSS::buildKeywordsMenu {} {
  1069.     
  1070.     set menuList [list                  \
  1071.       "listKeywords"                    \
  1072.       "checkKeywords"                   \
  1073.       "addNewCommands"                  \
  1074.       ]
  1075.     return [list build $menuList SPSS::keywordsProc {}]
  1076. }
  1077.  
  1078. # Then build the "Mark SPSS File As" submenu.
  1079.  
  1080. proc SPSS::buildMarkMenu {} {
  1081.     
  1082.     global SPSSmodeVars alpha::platform
  1083.     
  1084.     set menuList [list                  \
  1085.       "source"                          \
  1086.       "output"                          \
  1087.       "freqFile"                        \
  1088.       "(-"                              \
  1089.       ]
  1090.     if {${alpha::platform} == "alpha"} {
  1091.         set prefix "!√"
  1092.     } else {
  1093.         set prefix "!•"
  1094.     } 
  1095.     if {$SPSSmodeVars(autoMark)} {
  1096.         lappend menuList "${prefix}autoMark"
  1097.     } else {
  1098.         lappend menuList "autoMark"        
  1099.     }
  1100.     return [list build $menuList SPSS::markFileProc {}]
  1101. }
  1102.  
  1103. proc SPSS::rebuildMenu {{menuName "spssMenu"} {pref ""}} {
  1104.     menu::buildSome $menuName
  1105. }
  1106.  
  1107. # Dim some menu items when there are no open windows.
  1108. set menuItems {
  1109.     processFile processSelection markSpssFileAs markPsppFileAs
  1110.     insertPath 
  1111.     nextCommand prevCommand selectCommand
  1112. }
  1113. foreach i $menuItems {
  1114.     hook::register requireOpenWindowsHook [list spssMenu $i] 1
  1115. } 
  1116. unset i menuItems 
  1117.  
  1118. # Now we actually build the SPSS menu.
  1119.  
  1120. menu::buildSome spssMenu
  1121.  
  1122. # ===========================================================================
  1123. # 
  1124. # ◊◊◊◊ SPSS menu support ◊◊◊◊ #
  1125. # 
  1126.  
  1127. # This is the procedure called for all main menu items.
  1128.  
  1129. proc SPSS::menuProc {menu item} {SPSS::$item}
  1130.  
  1131. # Give a beta message for untested features / menu items.
  1132.  
  1133. proc SPSS::betaMessage {{kill 1}} {
  1134.     
  1135.     beep ; message "Sorry, this feature has not been fully implemented."
  1136.     if {$kill} {return -code return}
  1137. }
  1138.  
  1139. # ===========================================================================
  1140. # 
  1141. # Open the SPSS/PSPP Home Page
  1142. # 
  1143.  
  1144. proc SPSS::spssHomePage {{app "SPSS"}} {
  1145.     
  1146.     global SPSSmodeVars
  1147.     
  1148.     if {$app == ""} {set app $SPSSmodeVars(application)}
  1149.     set lowApp [string tolower $app]
  1150.     
  1151.     url::execute $SPSSmodeVars(${lowApp}HomePage)
  1152. }
  1153.  
  1154. proc SPSS::psppHomePage {} {SPSS::spssHomePage "PSPP"}
  1155.  
  1156. # ===========================================================================
  1157. # 
  1158. # Switch to SPSS or PSPP application
  1159. # 
  1160.  
  1161. proc SPSS::switchToSpss {{app "SPSS"}} {
  1162.     
  1163.     global SPSSmodeVars
  1164.     
  1165.     if {$app == ""} {set app $SPSSmodeVars(application)}
  1166.     app::launchFore [SPSS::sig $app]
  1167. }
  1168.  
  1169. proc SPSS::switchToPspp {} {SPSS::switchToSpss "PSPP"}
  1170.  
  1171. # ===========================================================================
  1172. # 
  1173. # Return the SPSS / PSPP signature.  
  1174. # 
  1175.  
  1176. proc SPSS::sig {{app "SPSS"}} {
  1177.     
  1178.     global SPSSmodeVars tcl_platform
  1179.     
  1180.     if {$app == ""} {set app $SPSSmodeVars(application)}
  1181.  
  1182.     set lowApp [string tolower $app]
  1183.     set capApp [string toupper $app]
  1184.     set pf     $tcl_platform(platform)
  1185.  
  1186.     if {$pf == "macintosh"} {
  1187.         # Make sure that the Macintosh application for the signature exists.
  1188.         if {[catch {nameFromAppl $SPSSmodeVars(${lowApp}Sig)}]} {
  1189.             alertnote "Looking for the $capApp application ..."
  1190.             S::setApplication $lowApp
  1191.         }
  1192.     } elseif {$pf == "windows" || $pf == "unix"} {
  1193.         # Make sure that the Windows application for the signature exists. 
  1194.         # We assume that this will work for unix, too.
  1195.         if {![file exists $SPSSmodeVars(${lowApp}Sig)]} {
  1196.             alertnote "Looking for the $capApp application ..."
  1197.             SPSS::setApplication $lowApp
  1198.         }
  1199.     }
  1200.     return $SPSSmodeVars(${lowApp}Sig)
  1201. }
  1202.  
  1203. # ===========================================================================
  1204. # 
  1205. # Set Application
  1206. # 
  1207. # Prompt the user to locate the local application for either SPSS or PSPP.
  1208. # 
  1209.  
  1210. proc SPSS::setApplication {{app ""}} {
  1211.     
  1212.     global mode SPSSmodeVars
  1213.     
  1214.     if {$app == ""} {
  1215.         set app $SPSSmodeVars(application)
  1216.     } 
  1217.     set lowApp [string tolower $app]
  1218.     set capApp [string toupper $app]
  1219.     
  1220.     set newSig ""
  1221.     set newSig [dialog::askFindApp $capApp $SPSSmodeVars(${lowApp}Sig)]
  1222.     
  1223.     if {$newSig != ""} {
  1224.         set SPSSmodeVars(${lowApp}Sig) "$newSig"
  1225.         set oldMode $mode
  1226.         set mode "SPSS"
  1227.         synchroniseModeVar "${lowApp}Sig" $SPSSmodeVars(${lowApp}Sig)
  1228.         set mode $oldMode
  1229.         message "The $capApp signature has been changed to \"$newSig\"."
  1230.     } else {
  1231.         message "Cancelled."
  1232.     }
  1233. }
  1234.  
  1235. # ===========================================================================
  1236. # 
  1237. # ◊◊◊◊ Help ◊◊◊◊ #
  1238. # 
  1239.  
  1240. proc SPSS::helpProc {menu item} {
  1241.  
  1242.     global SPSSmodeVars SPSSPrefsInMenu
  1243.     
  1244.     if {$item == "wwwCommandHelp"} {
  1245.         SPSS::wwwCommandHelp
  1246.     } elseif  {$item == "localCommandHelp"} {
  1247.         SPSS::localCommandHelp
  1248.     } elseif {$item == "pspp" || $item == "spss"} {
  1249.         SPSS::selectApplication $item
  1250.         SPSS::rebuildMenu
  1251.     } elseif {[lsearch -exact $SPSSPrefsInMenu $item] != -1} {
  1252.         SPSS::flagFlip $item
  1253.         SPSS::rebuildMenu spssHelp
  1254.         SPSS::rebuildMenu psppHelp
  1255.     } elseif {$item == "setSpssApplication"} {
  1256.         SPSS::setApplication "SPSS"
  1257.     } elseif {$item == "setPsppApplication"} {
  1258.         SPSS::setApplication "SPSS"
  1259.     } elseif {$item == "spssModeHelp"} {
  1260.         package::helpFile "SPSS"
  1261.     } else {
  1262.         SPSS::$item
  1263.     } 
  1264. }
  1265.  
  1266. # Choose between SPSS and PSPP
  1267.  
  1268. proc SPSS::selectApplication {app} {
  1269.     
  1270.     global mode SPSSmodeVars
  1271.     
  1272.     set app [string toupper $app]
  1273.  
  1274.     set oldMode $mode
  1275.     set mode "SPSS"
  1276.     set SPSSmodeVars(application) $app
  1277.     set mode $oldMode
  1278.     synchroniseModeVar application $SPSSmodeVars(application)
  1279.     message "Default application is now $app."
  1280. }
  1281.  
  1282. # ===========================================================================
  1283. # 
  1284. # ◊◊◊◊ Keywords ◊◊◊◊ #
  1285. # 
  1286.  
  1287. proc SPSS::keywordsProc {menuName item} {
  1288.  
  1289.     global SPSSlowerCaseCmds
  1290.     
  1291.     if {$item == "listKeywords"} {
  1292.         set keywords [listpick -l -p "Current SPSS mode keywords…" $SPSSlowerCaseCmds]
  1293.         foreach keyword $keywords {
  1294.             SPSS::checkKeywords $keyword
  1295.         }
  1296.     } elseif {$item == "addNewCommands" || $item == "addNewOptions"} {
  1297.         set item [string trimleft $item "addNew"]
  1298.         if {$item == "Commands" && [llength [winNames]] && [askyesno \
  1299.           "Would you like to add all of the \"extra\" commands from this window\
  1300.           to the \"Add Commands\" preference?"] == "yes"} {
  1301.             SPSS::addWindowCommands
  1302.         } else {
  1303.             SPSS::addKeywords $item
  1304.         }
  1305.     } else {
  1306.         SPSS::$item
  1307.     } 
  1308. }
  1309.  
  1310. # ===========================================================================
  1311. # 
  1312. # SPSS::addWindowCommands
  1313. # 
  1314. # Add all of the "extra" commands which appear in entries in this window.
  1315. # 
  1316.  
  1317. proc SPSS::addWindowCommands {} {
  1318.     
  1319.     global mode SPSScmds SPSSmodeVars
  1320.     
  1321.     if {![llength [winNames]]} {
  1322.         message "Cancelled -- no current window!"
  1323.         return
  1324.     } 
  1325.     
  1326.     message "Scanning [win::CurrentTail] for all commands…"
  1327.     
  1328.     set pos [minPos]
  1329.     set pat {^([a-zA-Z0-9]+[a-zA-Z0-9])+[\t ]}
  1330.     while {![catch {search -f 1 -r 1 $pat $pos} match]} {
  1331.         set pos [nextLineStart [lindex $match 1]]
  1332.         set commandLine [getText [lindex $match 0] [lindex $match 1]]
  1333.         regexp $pat $commandLine match aCommand
  1334.         set aCommand [string tolower $aCommand]
  1335.         if {![lcontains SPSScmds $aCommand]} {
  1336.             append SPSSmodeVars(addCommands) " $aCommand"
  1337.         } 
  1338.     }
  1339.     set SPSSmodeVars(addCommands) [lsort [lunique $SPSSmodeVars(addCommands)]]
  1340.     set oldMode $mode
  1341.     set mode "SPSS"
  1342.     synchroniseModeVar addCommands $SPSSmodeVars(addCommands)
  1343.     set mode $oldMode
  1344.     if {[llength $SPSSmodeVars(addCommands)]} {
  1345.         SPSS::colorizeSPSS
  1346.         listpick -p "The \"Add Commands\" preference includes:" \
  1347.           $SPSSmodeVars(addCommands)
  1348.         message "Use the \"Mode Prefs --> Preferences\" menu item to edit keyword lists."
  1349.     } else {
  1350.         message "No \"extra\" commands from this window were found."
  1351.     } 
  1352. }
  1353.  
  1354. proc SPSS::addKeywords {{category} {keywords ""}} {
  1355.     
  1356.     global mode SPSSmodeVars    
  1357.  
  1358.     if {$keywords == ""} {
  1359.         set keywords [prompt "Enter new SPSS $category:" ""]
  1360.     }
  1361.  
  1362.     # The list of keywords should all be lower case.
  1363.     set keywords [string tolower $keywords]
  1364.     # Check to see if the keyword is already defined.
  1365.     foreach keyword $keywords {
  1366.         set checkStatus [SPSS::checkKeywords $keyword 1 0]
  1367.         if {$checkStatus != 0} {
  1368.             alertnote "Sorry, \"$keyword\" is already defined\
  1369.               in the $checkStatus list."
  1370.             message "Cancelled."
  1371.             return -code return
  1372.         } 
  1373.     }
  1374.     # Keywords are all new, so add them to the appropriate mode preference.
  1375.     lappend SPSSmodeVars(add$category) $keywords
  1376.     set SPSSmodeVars(add$category) [lsort $SPSSmodeVars(add$category)]
  1377.     set oldMode $mode
  1378.     set mode "SPSS"
  1379.     synchroniseModeVar add$category $SPSSmodeVars(add$category)
  1380.     set mode $oldMode
  1381.     SPSS::colorizeSPSS
  1382.     message "\"$keywords\" added to $category preference."
  1383. }
  1384.  
  1385. proc SPSS::checkKeywords {{newKeywordList ""} {quietly 0} {noPrefs 0}} {
  1386.     
  1387.     global SPSSmodeVars
  1388.     
  1389.     global SPSSmodeVars SPSSCommands SPSSUserCommands SPSSFunctions SPSSOperators  
  1390.     
  1391.     set type 0
  1392.     if {$newKeywordList == ""} {
  1393.         set quietly 0
  1394.         set newKeywordList [prompt "Enter SPSS mode keywords to be checked:" ""]
  1395.     }
  1396.     # Check to see if the new keyword(s) is already defined.
  1397.     foreach newKeyword $newKeywordList {
  1398.         set newKeyword [string tolower $newKeyword]
  1399.         if {[lsearch -exact $SPSSCommands $newKeyword] != "-1"} {
  1400.             set type SPSSCommands
  1401.         } elseif {[lsearch -exact $SPSSUserCommands $newKeyword] != "-1"} {
  1402.             set type SPSSUserCommands
  1403.         } elseif {[lsearch -exact $SPSSmodeVars(addCommands) $newKeyword] != "-1"} {
  1404.             set type SPSSmodeVars(addCommands)
  1405.         } elseif {!$noPrefs && \
  1406.           [lsearch -exact $SPSSFunctions $newKeyword] != "-1"} {
  1407.             set type SPSSFunctions
  1408.         } elseif {!$noPrefs && \
  1409.           [lsearch -exact $SPSSOperators $newKeyword] != "-1"} {
  1410.             set type SPSSOperators
  1411.         }
  1412.         if {$quietly} {
  1413.             # When this is called from other code, it should only contain
  1414.             # one keyword to be checked, and we'll return it's type.
  1415.             return "$type"
  1416.         } elseif {!$quietly && $type == 0} {
  1417.             alertnote "\"$newKeyword\" is not currently defined\
  1418.               as a SPSS mode keyword"
  1419.         } elseif {$type != 0} {
  1420.             # This will work for any other value for "quietly", such as 2
  1421.             alertnote "\"$newKeyword\" is currently defined as a keyword\
  1422.               in the \"$type\" list."
  1423.         } 
  1424.         set type 0
  1425.     }
  1426. }
  1427.  
  1428. # ===========================================================================
  1429. # 
  1430. # ◊◊◊◊ Processing ◊◊◊◊ #
  1431. # 
  1432.  
  1433. # ===========================================================================
  1434. # 
  1435. # Process File
  1436. # 
  1437. # Send entire file to SPSS for processing, adding carriage return at end
  1438. # of file if necessary.
  1439. # 
  1440. # Optional "f" argument allows this to be called by other code, or to be 
  1441. # sent via a Tcl shell window.
  1442. # 
  1443.  
  1444. proc SPSS::processFile {{f ""} {app ""}} {
  1445.     
  1446.     global SPSSmodeVars
  1447.     
  1448.     if {$f != ""} {file::openAny $f}
  1449.     set f [win::Current]
  1450.  
  1451.     if {$app == ""} {set app $SPSSmodeVars(application)}
  1452.  
  1453.     set lowApp [string tolower $app]
  1454.     set capApp [string toupper $app]
  1455.  
  1456.     set dirtyWindow [winDirty]
  1457.     set dontSave 0
  1458.     if {$dirtyWindow && [askyesno \
  1459.       "Do you want to save the file before sending it to $capApp?"] == "yes"} {
  1460.         save
  1461.     } else {
  1462.         set dontSave 1
  1463.     } 
  1464.     if {!$dontSave && [lookAt [pos::math [maxPos] - 1]] != "\r"} {
  1465.         set pos [getPos]
  1466.         goto [maxPos]
  1467.         insertText "\r"
  1468.         goto $pos
  1469.         alertnote "Carriage return added to end of file."
  1470.         save
  1471.     }
  1472.  
  1473.     app::launchBack '[SPSS::sig $capApp]'
  1474.     sendOpenEvent noReply '[SPSS::sig $capApp]' $f
  1475.     switchTo '[SPSS::sig $capApp]'
  1476. }
  1477.  
  1478.  
  1479. # ===========================================================================
  1480. # 
  1481. # Process Selection
  1482. # 
  1483. # Procedure to implement transfer of selected lines to SPSS for processing.
  1484. # 
  1485.  
  1486. proc SPSS::processSelection {{selection ""} {app ""}} {
  1487.     
  1488.     global PREFS SPSSmodeVars
  1489.     
  1490.     if {$app == ""} {set app $SPSSmodeVars(application)}
  1491.  
  1492.     set lowApp [string tolower $app]
  1493.     set capApp [string toupper $app]
  1494.  
  1495.     if {$selection == ""} {
  1496.         if {![isSelection]} {
  1497.             message "No selection -- cancelled."
  1498.             return
  1499.         } else {
  1500.             set selection [getSelect]
  1501.         } 
  1502.     }
  1503.     file::ensureDirExists [file join $PREFS SPSS-tmp]
  1504.     set newFile [file join $PREFS SPSS-tmp temp-SPSS.s]
  1505.     file::writeAll $newFile $selection 1
  1506.  
  1507.     app::launchBack '[SPSS::sig $capApp]'
  1508.     sendOpenEvent noReply '[SPSS::sig $capApp]' $newFile
  1509.     switchTo '[SPSS::sig $capApp]'
  1510. }
  1511.  
  1512. proc SPSS::quitHook {} {temp::cleanup SPSS-tmp}
  1513.  
  1514. # ===========================================================================
  1515. # 
  1516. # ◊◊◊◊ Marks ◊◊◊◊ #
  1517. # 
  1518.  
  1519. proc SPSS::markFileProc {menu item} {
  1520.  
  1521.     if {$item == "source"} {
  1522.         SPSS::MarkFile {.sps}
  1523.     } elseif  {$item == "output"} {
  1524.         # doesn't really matter what we put for the mark file "type" here,
  1525.         # since output is the default if other "if ..." cases aren't met.
  1526.         SPSS::MarkFile {.out}
  1527.     } elseif  {$item == "freqFile"} {
  1528.         SPSS::MarkFile {.freq}
  1529.     } elseif {$item == "autoMark"} {
  1530.         SPSS::flagFlip autoMark
  1531.         SPSS::rebuildMenu markSpssFileAs…
  1532.         SPSS::rebuildMenu markPsppFileAs…
  1533.     }
  1534. }
  1535.  
  1536. # ===========================================================================
  1537. # 
  1538. # ◊◊◊◊ Insertions ◊◊◊◊ #
  1539. # 
  1540.  
  1541. proc SPSS::insertPath {} {
  1542.     
  1543.     global file::separator
  1544.     
  1545.     set path ""
  1546.     set t    ""
  1547.     append t "\"${file::separator}"
  1548.     set path [getfile "Choose path of target file:"]
  1549.     if {$path != ""} {
  1550.         append t $path
  1551.         append t "\""
  1552.         insertText $t
  1553.     }
  1554. }
  1555.  
  1556. # ===========================================================================
  1557. # 
  1558. # ◊◊◊◊ Navigation ◊◊◊◊ #
  1559. # 
  1560.  
  1561. # Next/Prev command can simply return the position of the next command
  1562. # (quietly == 1), move the cursor to the next command (placing the cursor
  1563. # at the top of the window if toTop == 1), extend the current selection to
  1564. # the end of the this command, or (if the current command is already
  1565. # highlighted in its entirety) extend the current selection to the end of
  1566. # the next command.
  1567. # 
  1568.  
  1569. proc SPSS::nextCommand {{quietly 0} {toTop 0}} {
  1570.     
  1571.     if {[pos::compare [selEnd] == [maxPos]]} {
  1572.         set pos [maxPos]
  1573.     } else {
  1574.         set pos [pos::math [selEnd] + 1]
  1575.     } 
  1576.     set pat {^[^\r\n\t \*/]}
  1577.  
  1578.     if {![catch {search -f 1 -r 1 $pat $pos} match]} {
  1579.         set pos [lineStart [lindex $match 1]]
  1580.     } else {
  1581.         set pos [maxPos]
  1582.     }
  1583.     if {$quietly} {
  1584.     return $pos
  1585.     } elseif {[isSelection]} {
  1586.     set limit1 [lindex [SPSS::getCommand [selEnd]] 1]
  1587.     set limit2 [lindex [SPSS::getCommand $pos    ] 1]
  1588.     if {$limit2 == "-1"} {set limit2 [maxPos]}
  1589.     if {$limit1 == "-1"} {set limit1 $limit2}
  1590.     if {[pos::compare [selEnd] < $limit1]} {
  1591.         select [getPos] $limit1
  1592.     } else {
  1593.         select [getPos] $limit2
  1594.     } 
  1595.     } elseif {$pos == [maxPos]} {
  1596.     message "No further commands in the file."
  1597.     return
  1598.     } else {
  1599.     goto $pos
  1600.     message [getText $pos [nextLineStart $pos]]
  1601.     } 
  1602.     if {$toTop} {insertToTop}
  1603. }
  1604.  
  1605. proc SPSS::prevCommand {{quietly 0} {toTop 0}} {
  1606.     
  1607.     if {[pos::compare [getPos] == [minPos]]} {
  1608.         set pos [minPos]
  1609.     } else {
  1610.         set pos [pos::math [getPos] - 1]
  1611.     } 
  1612.     set pat {^[^\r\n\t \*/]}
  1613.  
  1614.     if {![catch {search -f 0 -r 1 $pat $pos} match]} {
  1615.         set pos [lineStart [lindex $match 1]]
  1616.     } else {
  1617.         set pos [minPos]
  1618.     }
  1619.     if {$quietly} {
  1620.     return $pos
  1621.     } elseif {[isSelection]} {
  1622.     # Going backwards is actually easier with selections.
  1623.     select $pos [selEnd]
  1624.     } elseif {$pos == [minPos]} {
  1625.     message "No further commands in the file."
  1626.     return
  1627.     } else {
  1628.     goto $pos
  1629.     message [getText $pos [nextLineStart $pos]]
  1630.     } 
  1631.     if {$toTop} {insertToTop}
  1632.     return $pos
  1633. }
  1634.  
  1635. proc SPSS::selectCommand {} {
  1636.     
  1637.     set pos    [getPos]
  1638.     set limits [SPSS::getCommand $pos]
  1639.     set posBeg [lindex $limits 0]
  1640.     set posEnd [lindex $limits 1]
  1641.     
  1642.     if {$posBeg != "-1" && $posEnd != "-1" && \
  1643.       [pos::compare $pos >= $posBeg] && [pos::compare $pos <= $posEnd]} {
  1644.         select $posBeg $posEnd
  1645.     } else {
  1646.         message "The cursor is not within a command."
  1647.         error "The cursor is not within a command."
  1648.     } 
  1649. }
  1650.  
  1651. proc SPSS::copyCommand {{quietly 0}} {
  1652.     
  1653.     set pos [getPos]
  1654.     if {[set posBeg [lindex [SPSS::getCommand $pos] 0]] != "-1"} {
  1655.         goto $posBeg
  1656.         forwardWord
  1657.         set posEnd [getPos]
  1658.         if {!$quietly} {
  1659.             select $posBeg $posEnd
  1660.             copy
  1661.             message "\"[getText $posBeg $posEnd]\" copied to clipboard."
  1662.         } 
  1663.         goto $pos
  1664.         return [getText $posBeg $posEnd]
  1665.     } elseif {!$quietly} {
  1666.         message "The cursor is not within a command."
  1667.     }
  1668.     return ""
  1669. }
  1670.  
  1671. proc SPSS::reformatCommand {} {
  1672.     
  1673.     if {![isSelection]} {SPSS::selectCommand} 
  1674.     message "Reformatting …"
  1675.     ::indentRegion
  1676.     goto [pos::math [getPos] -1]
  1677.     goto [SPSS::nextCommand 1]
  1678.     message "Reformatted."
  1679. }
  1680.  
  1681. proc SPSS::getCommand {pos} {
  1682.     
  1683.     set pos1 [pos::math [nextLineStart $pos] - 1]
  1684.     set pat {^[^\r\n\t \}\)]}
  1685.     set posBeg "-1"
  1686.     set posEnd "-1"
  1687.     if {![catch {search -f 0 -r 1 $pat $pos1} match]} {
  1688.         set posBeg [lindex $match 0]
  1689.         set pos2   [nextLineStart $posBeg]
  1690.         if {![catch {search -f 1 -r 1 $pat $pos2} match]} {
  1691.             set posEnd [lindex $match 0]
  1692.         } else {
  1693.             set posEnd [maxPos]
  1694.         } 
  1695.         # Now back up to remove empty or commented lines.
  1696.         set posEndPrev [pos::math $posEnd - 1]
  1697.         set prevLine [getText [lineStart $posEndPrev] $posEndPrev]
  1698.         while {[regexp {^[\t ]*$} $prevLine]} {
  1699.             set posEnd [lineStart $posEndPrev]
  1700.             set posEndPrev [pos::math $posEnd - 1]
  1701.             set prevLine [getText [lineStart $posEndPrev] $posEndPrev]
  1702.         }
  1703.     } 
  1704.     return [list $posBeg $posEnd]
  1705. }
  1706.  
  1707. # ===========================================================================
  1708. # 
  1709. # ◊◊◊◊ --------------------- ◊◊◊◊ #
  1710. # 
  1711. # ◊◊◊◊ version history ◊◊◊◊ #
  1712. # 
  1713. #  modified by  vers#  reason
  1714. #  -------- --- ------ -----------
  1715. #  01/28/20 cbu 1.0.1  First created SPSS mode, based upon other modes found 
  1716. #                        in Alpha's distribution.  Commands are based on 
  1717. #                        version 4.0 of SPSS.
  1718. #  03/02/20 cbu 1.0.2  Minor modifications to comment handling.
  1719. #  03/20/00 cbu 1.0.3  Minor update of keywords dictionaries.
  1720. #  04/01/00 cbu 1.0.4  Added new preferences to allow the user to enter 
  1721. #                        additional commands, arguments, and symbols.  
  1722. #                      Added "Update Colors" proc to avoid need for a restart
  1723. #  04/08/00 cbu 1.0.5  Unset obsolete preferences from earlier versions.
  1724. #                      Added "Continue Comment", "Electric Return Over-ride",
  1725. #                        and "Electric Period".
  1726. #                      Renamed "Update Colors" to "Update Preferences".
  1727. #  04/16/00 cbu 1.1    Renamed to spssMode.tcl
  1728. #                      Added "Mark File" and "Parse Functions" procs.
  1729. #  06/22/00 cbu 1.2    "Mark File" now recognizes headings as well as commands.
  1730. #                      "Mark File" recognizes source or output files.
  1731. #                      Completions, Completions Tutorial added.
  1732. #                      "Reload Completions", referenced by "Update Preferences".
  1733. #                      Better support for user defined keywords.
  1734. #                      Removed "Continue Comment", now global in Alpha 7.4.
  1735. #                      Added command double-click for on-line help.
  1736. #                      <shift, control>-<command> double-click syntax info.
  1737. #                        (Foundations, at least.  Ongoing project.)
  1738. #  08/08/00 cbu 1.2.1  Minor electric completions bug fixes.
  1739. #                      Added message if no matching ")".
  1740. #                      Mark File ignores "execute" commands.
  1741. #                      Mark File can mark a frequencies file.
  1742. #                      Beta-version of an SPSS menu, based on the Stata menu.
  1743. #                      Added "spssSig" preference to allow user to find
  1744. #                        local application if necessary.
  1745. #                      Added SPSS::sig which returns SPSS signature.
  1746. #  08/28/00 cbu 1.2.2  Added some of the flag preferences to "SPSS Help" menu.
  1747. #                      Added "flagFlip" to update preference bullets in menu.
  1748. #                      Added a "noHelpKey" preference, which switches the
  1749. #                        "help" key binding to F8.
  1750. #                      Added "Add New Commands / Arguments" to "SPSS Help" menu.
  1751. #                      Added "Set SPSS Application to "SPSS Help" menu.
  1752. #  11/05/00 cbu 1.3    Added "next/prevCommand", "selectCommand", and
  1753. #                        "copyCommand" procs to menu.
  1754. #                      Added "SPSS::indentLine".
  1755. #                      Added "SPSS::reformatCommand" to menu.
  1756. #                      "SPSS::reloadCompletions" is now obsolete.
  1757. #                      "SPSS::updatePreferences" is now obsolete.
  1758. #                      "SPSS::colorizeSPSS" now takes care of setting all 
  1759. #                        keyword lists, including SPSScmds.
  1760. #                      Cleaned up completion procs.  This file never has to be
  1761. #                        reloaded.  (Similar cleaning up for "SPSS::DblClick").
  1762. #  11/16/00 cbu 2.0    New url prefs handling requires 7.4b21
  1763. #                      Added "Home Page" pref, menu item.
  1764. #                      Removed  hook::register requireOpenWindowsHook from
  1765. #                        mode declaration, put it after menu build.
  1766. #  12/19/00 cbu 2.1    The menu proc "Add Commands" now includes an option
  1767. #                        to grab all of the "extra" command from the current
  1768. #                        window, using SPSS::addWindowCommands.
  1769. #                      Added "Keywords" submenu, "List Keywords" menu item.
  1770. #                      Big cleanup of ::sig, ::setApplication, processing ...
  1771. #  01/25/01 cbu 2.1.1  Bug fix for SPSS::processSelection/File.
  1772. #                      Better frequency file marking.
  1773. #                      Bug fix for comment characters.
  1774. # 
  1775.  
  1776. # ===========================================================================
  1777. # 
  1778. # .
  1779.